home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_103_Doc < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.2 KB  |  55 lines
  1. { %filename% -- document methods }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. {    This module overrides the AppMaker-generated code in z%Appname%Doc.%    %}
  5. {    It provides a place for you to add your own code and still be able to    }
  6. {    generate code for new changes to the user interface.  This module will    }
  7. {    not be regenerated by AppMaker unless you delete it.  Its superclass,    }
  8. {    z%Appname%Doc, may be regenerated to handle user interface changes    %    %}
  9. {    without losing your hand-coded changes to this module.                    }
  10.  
  11. Unit %unitname%;
  12. Interface
  13.  
  14. Uses
  15.     TCL,
  16.     AMCL,
  17.     %AppName%Intf,
  18.     %for each dialog gen usesDocDialogs%
  19.     ResourceDefs;
  20.  
  21. {----------}
  22. Implementation
  23.  
  24. {----------}
  25. Procedure C%Appname%Doc.I%Appname%Doc%    %(aSupervisor:        CApplication;
  26.                                          printable:        Boolean);
  27. Begin
  28.     inherited I%Appname%Doc (aSupervisor, printable);
  29.  
  30.     {your application-specific initialization:}
  31.  
  32. End; {I%Appname%Doc}
  33.  
  34. {----------}
  35. Procedure C%Appname%Doc.UpdateMenus;
  36. Begin
  37.     inherited UpdateMenus;
  38.     %for each menu gen updateDocMenus%
  39.  
  40. End; {UpdateMenus}
  41.  
  42. {----------}
  43. Procedure C%Appname%Doc.DoCommand    (theCommand: longint);
  44. Begin
  45.     case theCommand of
  46.         0:    ;
  47.         %for each menu gen handleDocItems%
  48.  
  49.         otherwise
  50.             inherited DoCommand (theCommand);
  51.     end; {case}
  52. End; {DoCommand}
  53.  
  54. End. {%unitname%}
  55.